local ID = 

function IsFly_Teufelsruch (pUnit, Event)
if Didthat == 0 then
pUnit:IsCreatureMoving(True)
pUnit:IsFlying(True)
pUnit:ModifyFlySpeed(14)
pUnit:SetFlying()
end
end

function IsNotFly_Teufelsruch (pUnit, Event)
pUnit:IsFlying(Flase)
pUnit:Land()
Didthat = 1
end

function Teufelsruch_Didthat (pUnit, Event)
pUnit:RegisterEvent("IsFly_Teufelsruch", 5000, 1)
Didthat = 0
end

RegisterUnitEvent(ID, 18 "IsFly_Teufelsruch")
RegisterUnitEvent(ID, 1 "IsNotFly_Teufelsruch")
RegisterUnitEvent(ID, 2 "Teufelsruch_Didthat")